    /********************************************************/
    /*                                                      */
    /*                                                      */
    /*         Copyright (C), 1993  SEIKO EPSON Corp.       */
    /*         ALL RIGHTS RESERVED                          */
    /*                                                      */
    /*                                                      */
    /*  file name : atof.c                                  */
    /*                                                      */
    /*  Revision history                                    */
    /*      93/12/17    first release       S.Akaiwa        */
    /*      97/2/20	modified	    T.Katahira	    */
    /*			change function declaration	    */
    /*					to the ANSI style   */
    /*                                                      */
    /********************************************************/

#ifdef      UNIX
#include    "stdlib.h"
#else
#include    <stdlib.h>
#endif


double 
atof(const char * sStrPtrP)
   
    /********************************************************/
    /*                                                      */
    /*  The atof function converts string pointed to by     */
    /*  sStrPtrP to double.                                 */
    /*  The atof function returns the converted value.      */
    /*  If nothing is converted, 0 is returned.             */
    /*  -HUGE_VAL or +HUGE_VAL is returned, and ERANGE is   */
    /*  stored in errno when overflow is generated.         */
    /*  0 is returned, and ERANGE is stored in errno when   */
    /*  underflow is generated.                             */
    /*                                                      */  
    /*  RETURN  0 :                                         */
    /*              (sStrPtrP == sEndPtrP) No conversion    */
    /*              (errno == ERANGE) Underflow             */
    /*              (other) Converted value                 */
    /*                                                      */
    /*          +/-HUGE_VAL :                               */
    /*              (errno == ERANGE) Overflow              */
    /*                                                      */
    /*          Others: Converted value                     */
    /*                                                      */
    /********************************************************/  

    /* const char *	sStrPtrP;         string pointer */
    {

          /* convert string into double use strtod function */
     return (double)strtod(sStrPtrP, NULL);
     
    }

